Mac Action 1996 January/mac-action-07.iso/mac/Inside Action/Total Distortion Big Demo/beESPman.Dxr/00177_ESPman.script.ls

Text File | 1995-06-05 | 2.8 KB | 150 lines

property s1, s2, s3, s4, s5, s6, s7, s8, scha1, scha2, scha3, scha4, scha5, scha6, scha7, scha8, sart1, sart2, sart3, sart4, sart5, sart6, sart7, sart8, focalcha, attempts, hits, misses, targetnum, choice, ringcha, chetr

on birth me
  set chetr to 0
  set scha1 to 4
  set scha2 to 5
  set scha3 to 6
  set scha4 to 7
  set scha5 to 8
  set scha6 to 9
  set scha7 to 10
  set scha8 to 11
  set sart1 to the number of cast "churchloope"
  set sart2 to the number of cast "earloope"
  set sart3 to the number of cast "eyeloope"
  set sart4 to the number of cast "noseloope"
  set sart5 to the number of cast "mouthloope"
  set sart6 to the number of cast "cdloope"
  set sart7 to the number of cast "handloope"
  set sart8 to the number of cast "faceloope"
  set focalcha to 16
  set ringcha to 15
  set attempts to 0
  set hits to 0
  set misses to 0
  return me
end

on drawrand me
  set arti to 0
  puppetSprite(focalcha, 1)
  set targetnum to random(8)
  do("set arti = sart" & targetnum)
  put arti
  set the castNum of sprite focalcha to arti
end

on drawchet me, n
  set arti to 0
  puppetSprite(focalcha, 1)
  do("set arti = sart" & n)
  put arti
  set the castNum of sprite focalcha to arti
end

on setchet me, n
  set chetr to n
end

on selecto me, n
  set choice to n
  if chetr < 1 then
    regselect(me)
  else
    chetselect(me)
  end if
end

on chetselect me
  if random(chetr) < 7 then
    drawchet(me, choice)
    set hits to hits + 1
    go("revealhit")
    set attempts to attempts + 1
  else
    regselect(me)
  end if
end

on regselect me
  if choice = targetnum then
    set hits to hits + 1
    go("revealhit")
  else
    set misses to misses + 1
    go("revealmiss")
  end if
  set attempts to attempts + 1
end

on ringit me
  puppetSprite(ringcha, 1)
  do("set h = the loch of sprite scha" & choice)
  do("set v = the locv of sprite scha" & choice)
  set h to h + 32
  set v to v + 32
  set the locH of sprite ringcha to h
  set the locV of sprite ringcha to v
end

on printscore me
  set tx to "Attempts: " & attempts & RETURN & "Correct: " & hits & RETURN & "Wrong: " & misses
  put tx into field "espstat"
end

on cleanup me
  puppetSprite(ringcha, 0)
  puppetSprite(focalcha, 0)
end

on tryagain me
  cleanup(me)
  go("5")
end

on resetscore me
  set attempts to 0
  set hits to 0
  set misses to 0
  printscore(me)
end

on FirstPage me
  global NowBPage, BPageMax
  cleanup(me)
  puppetSound("Kick.SE.1")
  go("1")
  set NowBPage to 1
end

on PageDN me
  global NowBPage, BPageMax
  cleanup(me)
  if NowBPage = 1 then
    exit
  else
    set NowBPage to NowBPage - 1
  end if
  puppetSound("BookPage.SE.2")
  go(string(NowBPage))
end

on HelpOut me
  cleanup(me)
  JumpPage(4)
  puppetSound("DonkBell.SE.1")
end

on hitsnd me
  set n to random(4)
  set s to "ESPVoc" & n
  puppetSound(s)
end

on misssnd me
  set n to random(21)
  set s to "ESPAww" & n
  puppetSound(s)
end